1 GOSUB1000:PRINT"[147]VALIDATING DISK..."
10 OPEN1,8,15,"V"
20 OPEN2,8,2,"#":PRINT"[147]"
30 PRINT#1,"U1 2 0 18 0"
40 SYS49152:SYS49155
50 A=52996
60 FORT=1TO35:Z=1:X=0
65 M=20:IFT>17THENM=18:IFT>24THENM=17:IFT>30THENM=16
70 FORS=0TOM
80 W=43:IF(PEEK(A+Z)AND2^X)<>0THENW=45
81 IFW=45THENPRINT#1,"U2 2 0";T;S
90 POKE1023+40*S+T,W
100 X=X+1:IFX<8THEN110
101 X=0:Z=Z+1
110 NEXTS
115 A=A+4
120 NEXTT
130 CLOSE2:CLOSE1
140 END
1000 DATA76,6,192,76,28,192,162,2,32,198,255,162,0,32,207,255,157,0,207,232,224
1010 DATA144,208,245,32,204,255,96,162,2,32,201,255,162,0,138,32,210,255,232
1020 DATA208,250,32,204,255,96
1030 FORI=49152TO49152+45:READA:POKEI,A:NEXT:RETURN